home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 5 / Windows 6-Pak (InfoMagic) (Disc 5) (1999).ISO / C&C++Tools / sbparser.exe / ocx / vb / parsdemo3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-14  |  24.5 KB  |  753 lines
  1. VERSION 5.00
  2. Object = "{D8E22160-FB0D-11D1-95EB-080000440175}#3.5#0"; "SBPARSERX.OCX"
  3. Begin VB.Form FVBDemo 
  4.    BorderStyle     =   3  'Fester Dialog
  5.    Caption         =   "Demo for Microsoft Visual Basic"
  6.    ClientHeight    =   5670
  7.    ClientLeft      =   45
  8.    ClientTop       =   390
  9.    ClientWidth     =   10020
  10.    Icon            =   "parsdemo3.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5670
  15.    ScaleWidth      =   10020
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows-Standard
  18.    Begin VB.Frame FAngular 
  19.       BorderStyle     =   0  'Kein
  20.       Height          =   375
  21.       Left            =   5085
  22.       TabIndex        =   35
  23.       Top             =   450
  24.       Width           =   4200
  25.       Begin VB.OptionButton OGRA 
  26.          Caption         =   "GRA"
  27.          BeginProperty Font 
  28.             Name            =   "MS Serif"
  29.             Size            =   6.75
  30.             Charset         =   0
  31.             Weight          =   400
  32.             Underline       =   0   'False
  33.             Italic          =   0   'False
  34.             Strikethrough   =   0   'False
  35.          EndProperty
  36.          Height          =   258
  37.          Left            =   1575
  38.          TabIndex        =   20
  39.          Top             =   0
  40.          Width           =   645
  41.       End
  42.       Begin VB.OptionButton ORAD 
  43.          Caption         =   "RAD"
  44.          BeginProperty Font 
  45.             Name            =   "MS Serif"
  46.             Size            =   6.75
  47.             Charset         =   0
  48.             Weight          =   400
  49.             Underline       =   0   'False
  50.             Italic          =   0   'False
  51.             Strikethrough   =   0   'False
  52.          EndProperty
  53.          Height          =   258
  54.          Left            =   765
  55.          TabIndex        =   19
  56.          Top             =   0
  57.          Value           =   -1  'True
  58.          Width           =   645
  59.       End
  60.       Begin VB.OptionButton ODEG 
  61.          Caption         =   "DEG"
  62.          BeginProperty Font 
  63.             Name            =   "MS Serif"
  64.             Size            =   6.75
  65.             Charset         =   0
  66.             Weight          =   400
  67.             Underline       =   0   'False
  68.             Italic          =   0   'False
  69.             Strikethrough   =   0   'False
  70.          EndProperty
  71.          Height          =   258
  72.          Left            =   0
  73.          TabIndex        =   18
  74.          Top             =   0
  75.          Width           =   645
  76.       End
  77.    End
  78.    Begin VB.Frame FBaseIn 
  79.       BorderStyle     =   0  'Kein
  80.       Height          =   375
  81.       Left            =   1485
  82.       TabIndex        =   33
  83.       Top             =   450
  84.       Width           =   3255
  85.       Begin VB.OptionButton OOCT 
  86.          Caption         =   "OCT"
  87.          BeginProperty Font 
  88.             Name            =   "MS Serif"
  89.             Size            =   6.75
  90.             Charset         =   0
  91.             Weight          =   400
  92.             Underline       =   0   'False
  93.             Italic          =   0   'False
  94.             Strikethrough   =   0   'False
  95.          EndProperty
  96.          Height          =   258
  97.          Left            =   2295
  98.          TabIndex        =   17
  99.          Top             =   12
  100.          Width           =   645
  101.       End
  102.       Begin VB.OptionButton OHEX 
  103.          Caption         =   "HEX"
  104.          BeginProperty Font 
  105.             Name            =   "MS Serif"
  106.             Size            =   6.75
  107.             Charset         =   0
  108.             Weight          =   400
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          Height          =   285
  114.          Left            =   1530
  115.          TabIndex        =   16
  116.          Top             =   0
  117.          Width           =   645
  118.       End
  119.       Begin VB.OptionButton OBIN 
  120.          Caption         =   "BIN"
  121.          BeginProperty Font 
  122.             Name            =   "MS Serif"
  123.             Size            =   6.75
  124.             Charset         =   0
  125.             Weight          =   400
  126.             Underline       =   0   'False
  127.             Italic          =   0   'False
  128.             Strikethrough   =   0   'False
  129.          EndProperty
  130.          Height          =   285
  131.          Left            =   765
  132.          TabIndex        =   15
  133.          Top             =   0
  134.          Width           =   645
  135.       End
  136.       Begin VB.OptionButton ODEC 
  137.          Caption         =   "DEC"
  138.          BeginProperty Font 
  139.             Name            =   "MS Serif"
  140.             Size            =   6.75
  141.             Charset         =   0
  142.             Weight          =   400
  143.             Underline       =   0   'False
  144.             Italic          =   0   'False
  145.             Strikethrough   =   0   'False
  146.          EndProperty
  147.          Height          =   258
  148.          Left            =   0
  149.          TabIndex        =   14
  150.          Top             =   12
  151.          Value           =   -1  'True
  152.          Width           =   645
  153.       End
  154.    End
  155.    Begin VB.Frame FBaseOut 
  156.       BorderStyle     =   0  'Kein
  157.       Height          =   510
  158.       Left            =   7110
  159.       TabIndex        =   31
  160.       Top             =   4905
  161.       Width           =   3165
  162.       Begin VB.OptionButton ODECOut 
  163.          Caption         =   "DEC"
  164.          BeginProperty Font 
  165.             Name            =   "MS Serif"
  166.             Size            =   6.75
  167.             Charset         =   0
  168.             Weight          =   400
  169.             Underline       =   0   'False
  170.             Italic          =   0   'False
  171.             Strikethrough   =   0   'False
  172.          EndProperty
  173.          Height          =   285
  174.          Left            =   0
  175.          TabIndex        =   9
  176.          Top             =   0
  177.          Value           =   -1  'True
  178.          Width           =   645
  179.       End
  180.       Begin VB.OptionButton OBINOut 
  181.          Caption         =   "BIN"
  182.          BeginProperty Font 
  183.             Name            =   "MS Serif"
  184.             Size            =   6.75
  185.             Charset         =   0
  186.             Weight          =   400
  187.             Underline       =   0   'False
  188.             Italic          =   0   'False
  189.             Strikethrough   =   0   'False
  190.          EndProperty
  191.          Height          =   285
  192.          Left            =   720
  193.          TabIndex        =   10
  194.          Top             =   0
  195.          Width           =   645
  196.       End
  197.       Begin VB.OptionButton OHEXOut 
  198.          Caption         =   "HEX"
  199.          BeginProperty Font 
  200.             Name            =   "MS Serif"
  201.             Size            =   6.75
  202.             Charset         =   0
  203.             Weight          =   400
  204.             Underline       =   0   'False
  205.             Italic          =   0   'False
  206.             Strikethrough   =   0   'False
  207.          EndProperty
  208.          Height          =   285
  209.          Left            =   1440
  210.          TabIndex        =   11
  211.          Top             =   0
  212.          Width           =   645
  213.       End
  214.       Begin VB.OptionButton OOCTOut 
  215.          Caption         =   "OCT"
  216.          BeginProperty Font 
  217.             Name            =   "MS Serif"
  218.             Size            =   6.75
  219.             Charset         =   0
  220.             Weight          =   400
  221.             Underline       =   0   'False
  222.             Italic          =   0   'False
  223.             Strikethrough   =   0   'False
  224.          EndProperty
  225.          Height          =   285
  226.          Left            =   2160
  227.          TabIndex        =   12
  228.          Top             =   0
  229.          Width           =   645
  230.       End
  231.    End
  232.    Begin VB.TextBox Tresult 
  233.       BackColor       =   &H8000000F&
  234.       Height          =   330
  235.       Left            =   2340
  236.       Locked          =   -1  'True
  237.       TabIndex        =   8
  238.       Text            =   "no result ..."
  239.       Top             =   4815
  240.       Width           =   4620
  241.    End
  242.    Begin VB.Frame Fvariables 
  243.       Caption         =   "Variables"
  244.       BeginProperty Font 
  245.          Name            =   "MS Sans Serif"
  246.          Size            =   9.75
  247.          Charset         =   0
  248.          Weight          =   700
  249.          Underline       =   0   'False
  250.          Italic          =   -1  'True
  251.          Strikethrough   =   0   'False
  252.       EndProperty
  253.       Height          =   2940
  254.       Left            =   7155
  255.       TabIndex        =   23
  256.       Top             =   945
  257.       Width           =   2760
  258.       Begin SBPARSERXLib.sbParserX w_sbParserX 
  259.          Left            =   2295
  260.          Top             =   2520
  261.          _Version        =   196613
  262.          _ExtentX        =   741
  263.          _ExtentY        =   661
  264.          _StockProps     =   0
  265.          VarDesc1        =   ""
  266.          VarDesc2        =   ""
  267.          VarDesc3        =   ""
  268.          VarDesc4        =   ""
  269.          VarDesc5        =   ""
  270.          VarDesc6        =   ""
  271.       End
  272.       Begin SBPARSERXLib.sbParserX v_sbParserX 
  273.          Left            =   2295
  274.          Top             =   2115
  275.          _Version        =   196613
  276.          _ExtentX        =   741
  277.          _ExtentY        =   661
  278.          _StockProps     =   0
  279.          VarDesc1        =   ""
  280.          VarDesc2        =   ""
  281.          VarDesc3        =   ""
  282.          VarDesc4        =   ""
  283.          VarDesc5        =   ""
  284.          VarDesc6        =   ""
  285.       End
  286.       Begin SBPARSERXLib.sbParserX u_sbParserX 
  287.          Left            =   2295
  288.          Top             =   1665
  289.          _Version        =   196613
  290.          _ExtentX        =   741
  291.          _ExtentY        =   661
  292.          _StockProps     =   0
  293.          VarDesc1        =   ""
  294.          VarDesc2        =   ""
  295.          VarDesc3        =   ""
  296.          VarDesc4        =   ""
  297.          VarDesc5        =   ""
  298.          VarDesc6        =   ""
  299.       End
  300.       Begin SBPARSERXLib.sbParserX z_sbParserX 
  301.          Left            =   2295
  302.          Top             =   1260
  303.          _Version        =   196613
  304.          _ExtentX        =   741
  305.          _ExtentY        =   661
  306.          _StockProps     =   0
  307.          VarDesc1        =   ""
  308.          VarDesc2        =   ""
  309.          VarDesc3        =   ""
  310.          VarDesc4        =   ""
  311.          VarDesc5        =   ""
  312.          VarDesc6        =   ""
  313.       End
  314.       Begin SBPARSERXLib.sbParserX y_sbParserX 
  315.          Left            =   2295
  316.          Top             =   855
  317.          _Version        =   196613
  318.          _ExtentX        =   741
  319.          _ExtentY        =   661
  320.          _StockProps     =   0
  321.          VarDesc1        =   ""
  322.          VarDesc2        =   ""
  323.          VarDesc3        =   ""
  324.          VarDesc4        =   ""
  325.          VarDesc5        =   ""
  326.          VarDesc6        =   ""
  327.       End
  328.       Begin SBPARSERXLib.sbParserX x_sbParserX 
  329.          Left            =   2295
  330.          Top             =   405
  331.          _Version        =   196613
  332.          _ExtentX        =   741
  333.          _ExtentY        =   661
  334.          _StockProps     =   0
  335.          VarDesc1        =   ""
  336.          VarDesc2        =   ""
  337.          VarDesc3        =   ""
  338.          VarDesc4        =   ""
  339.          VarDesc5        =   ""
  340.          VarDesc6        =   ""
  341.       End
  342.       Begin VB.TextBox TwVar 
  343.          Height          =   330
  344.          Left            =   540
  345.          MousePointer    =   3  'I-Cursor
  346.          TabIndex        =   6
  347.          Text            =   "0"
  348.          Top             =   2520
  349.          Width           =   1725
  350.       End
  351.       Begin VB.TextBox TvVar 
  352.          Height          =   330
  353.          Left            =   540
  354.          MousePointer    =   3  'I-Cursor
  355.          TabIndex        =   5
  356.          Text            =   "0"
  357.          Top             =   2115
  358.          Width           =   1725
  359.       End
  360.       Begin VB.TextBox TuVar 
  361.          Height          =   330
  362.          Left            =   540
  363.          MousePointer    =   3  'I-Cursor
  364.          TabIndex        =   4
  365.          Text            =   "0"
  366.          Top             =   1710
  367.          Width           =   1725
  368.       End
  369.       Begin VB.TextBox TzVar 
  370.          Height          =   330
  371.          Left            =   540
  372.          MousePointer    =   3  'I-Cursor
  373.          TabIndex        =   3
  374.          Text            =   "0"
  375.          Top             =   1260
  376.          Width           =   1725
  377.       End
  378.       Begin VB.TextBox TyVar 
  379.          Height          =   330
  380.          Left            =   540
  381.          MousePointer    =   3  'I-Cursor
  382.          TabIndex        =   2
  383.          Text            =   "0"
  384.          Top             =   855
  385.          Width           =   1725
  386.       End
  387.       Begin VB.TextBox TxVar 
  388.          Height          =   330
  389.          Left            =   540
  390.          MousePointer    =   3  'I-Cursor
  391.          TabIndex        =   1
  392.          Text            =   "0"
  393.          Top             =   450
  394.          Width           =   1725
  395.       End
  396.       Begin VB.Label Lx 
  397.          Caption         =   "x="
  398.          Height          =   285
  399.          Index           =   0
  400.          Left            =   135
  401.          TabIndex        =   29
  402.          Top             =   495
  403.          Width           =   915
  404.       End
  405.       Begin VB.Label Ly 
  406.          Caption         =   "y="
  407.          Height          =   285
  408.          Index           =   1
  409.          Left            =   135
  410.          TabIndex        =   28
  411.          Top             =   900
  412.          Width           =   915
  413.       End
  414.       Begin VB.Label Lz 
  415.          Caption         =   "z="
  416.          Height          =   285
  417.          Index           =   1
  418.          Left            =   135
  419.          TabIndex        =   27
  420.          Top             =   1305
  421.          Width           =   915
  422.       End
  423.       Begin VB.Label Lu 
  424.          Caption         =   "u="
  425.          Height          =   285
  426.          Index           =   1
  427.          Left            =   135
  428.          TabIndex        =   26
  429.          Top             =   1755
  430.          Width           =   915
  431.       End
  432.       Begin VB.Label Lv 
  433.          Caption         =   "v="
  434.          Height          =   285
  435.          Index           =   0
  436.          Left            =   135
  437.          TabIndex        =   25
  438.          Top             =   2160
  439.          Width           =   915
  440.       End
  441.       Begin VB.Label Lw 
  442.          Caption         =   "w="
  443.          Height          =   285
  444.          Index           =   0
  445.          Left            =   135
  446.          TabIndex        =   24
  447.          Top             =   2565
  448.          Width           =   915
  449.       End
  450.    End
  451.    Begin VB.CommandButton CExit 
  452.       Caption         =   "&Exit"
  453.       Height          =   330
  454.       Left            =   1935
  455.       TabIndex        =   13
  456.       Top             =   5265
  457.       Width           =   1050
  458.    End
  459.    Begin VB.CommandButton CResult 
  460.       Caption         =   "&Result"
  461.       Height          =   330
  462.       Left            =   1170
  463.       TabIndex        =   7
  464.       Top             =   4815
  465.       Width           =   1050
  466.    End
  467.    Begin VB.TextBox Tfunction 
  468.       Height          =   3135
  469.       Left            =   2355
  470.       MousePointer    =   3  'I-Cursor
  471.       MultiLine       =   -1  'True
  472.       ScrollBars      =   2  'Vertikal
  473.       TabIndex        =   0
  474.       Text            =   "parsdemo3.frx":0582
  475.       Top             =   1440
  476.       Width           =   4620
  477.    End
  478.    Begin SBPARSERXLib.sbParserX function_sbParserX 
  479.       Left            =   1350
  480.       Top             =   1845
  481.       _Version        =   196613
  482.       _ExtentX        =   1296
  483.       _ExtentY        =   873
  484.       _StockProps     =   0
  485.       VarDesc1        =   "x"
  486.       VarDesc2        =   "y"
  487.       VarDesc3        =   "z"
  488.       VarDesc4        =   "u"
  489.       VarDesc5        =   "v"
  490.       VarDesc6        =   "w"
  491.    End
  492.    Begin VB.Frame Ffunction 
  493.       Caption         =   "The Function ..."
  494.       BeginProperty Font 
  495.          Name            =   "MS Sans Serif"
  496.          Size            =   9.75
  497.          Charset         =   0
  498.          Weight          =   700
  499.          Underline       =   0   'False
  500.          Italic          =   -1  'True
  501.          Strikethrough   =   0   'False
  502.       EndProperty
  503.       Height          =   3750
  504.       Left            =   1080
  505.       TabIndex        =   21
  506.       Top             =   945
  507.       Width           =   6000
  508.       Begin VB.Label Lfunction 
  509.          Caption         =   "f(x,y,z,u,v,w)="
  510.          Height          =   375
  511.          Left            =   135
  512.          TabIndex        =   22
  513.          Top             =   540
  514.          Width           =   1335
  515.       End
  516.    End
  517.    Begin VB.Image Image1 
  518.       BorderStyle     =   1  'Fest Einfach
  519.       Height          =   5010
  520.       Left            =   90
  521.       Picture         =   "parsdemo3.frx":0584
  522.       Top             =   135
  523.       Width           =   870
  524.    End
  525.    Begin VB.Label LAngular 
  526.       Caption         =   "Angle Measurement"
  527.       BeginProperty Font 
  528.          Name            =   "MS Sans Serif"
  529.          Size            =   8.25
  530.          Charset         =   0
  531.          Weight          =   700
  532.          Underline       =   0   'False
  533.          Italic          =   0   'False
  534.          Strikethrough   =   0   'False
  535.       EndProperty
  536.       Height          =   240
  537.       Left            =   5355
  538.       TabIndex        =   34
  539.       Top             =   180
  540.       Width           =   2445
  541.    End
  542.    Begin VB.Label LBaseIn 
  543.       Caption         =   "Base for Input"
  544.       BeginProperty Font 
  545.          Name            =   "MS Sans Serif"
  546.          Size            =   8.25
  547.          Charset         =   0
  548.          Weight          =   700
  549.          Underline       =   0   'False
  550.          Italic          =   0   'False
  551.          Strikethrough   =   0   'False
  552.       EndProperty
  553.       Height          =   240
  554.       Left            =   1935
  555.       TabIndex        =   32
  556.       Top             =   180
  557.       Width           =   2085
  558.    End
  559.    Begin VB.Label LBaseOut 
  560.       Caption         =   "Base for Output"
  561.       BeginProperty Font 
  562.          Name            =   "MS Sans Serif"
  563.          Size            =   8.25
  564.          Charset         =   0
  565.          Weight          =   700
  566.          Underline       =   0   'False
  567.          Italic          =   0   'False
  568.          Strikethrough   =   0   'False
  569.       EndProperty
  570.       Height          =   195
  571.       Left            =   7560
  572.       TabIndex        =   30
  573.       Top             =   4680
  574.       Width           =   2130
  575.    End
  576. Attribute VB_Name = "FVBDemo"
  577. Attribute VB_GlobalNameSpace = False
  578. Attribute VB_Creatable = False
  579. Attribute VB_PredeclaredId = True
  580. Attribute VB_Exposed = False
  581. Private Sub CExit_Click()
  582.     Unload FVBDemo
  583.     End
  584. End Sub
  585. Private Sub CResult_Click()
  586.     Dim strBuffer As String
  587.     Dim retVal As Boolean
  588.     Dim baseOut As Integer
  589.     Dim mbretVal
  590.     Dim gotErr As Boolean
  591.     gotErr = False
  592.         
  593.     FVBDemo.MousePointer = vbHourglass
  594.     'Get the variables
  595.     If x_sbParserX.IsError = True Then
  596.         mbretVal = MsgBox(x_sbParserX.GlobalError, vbExclamation, "The string of the variable x causes an error. (see documentation)")
  597.         gotErr = True
  598.     ElseIf x_sbParserX.IsError = False Then
  599.         function_sbParserX.VarValue1 = x_sbParserX.Result
  600.     End If
  601.     If y_sbParserX.IsError = True Then
  602.         mbretVal = MsgBox(y_sbParserX.GlobalError, vbExclamation, "The string of the variable y causes an error. (see documentation)")
  603.         gotErr = True
  604.     ElseIf y_sbParserX.IsError = False Then
  605.         function_sbParserX.VarValue2 = y_sbParserX.Result
  606.     End If
  607.     If z_sbParserX.IsError = True Then
  608.         mbretVal = MsgBox(z_sbParserX.GlobalError, vbExclamation, "The string of the variable z causes an error. (see documentation)")
  609.         gotErr = True
  610.     ElseIf z_sbParserX.IsError = False Then
  611.         function_sbParserX.VarValue3 = z_sbParserX.Result
  612.     End If
  613.     If u_sbParserX.IsError = True Then
  614.         mbretVal = MsgBox(u_sbParserX.GlobalError, vbExclamation, "The string of the variable u causes an error. (see documentation)")
  615.         gotErr = True
  616.     ElseIf u_sbParserX.IsError = False Then
  617.         function_sbParserX.VarValue4 = u_sbParserX.Result
  618.     End If
  619.     If v_sbParserX.IsError = True Then
  620.         mbretVal = MsgBox(v_sbParserX.GlobalError, vbExclamation, "The string of the variable v causes an error. (see documentation)")
  621.         gotErr = True
  622.     ElseIf v_sbParserX.IsError = False Then
  623.         function_sbParserX.VarValue5 = v_sbParserX.Result
  624.     End If
  625.     If w_sbParserX.IsError = True Then
  626.         mbretVal = MsgBox(w_sbParserX.GlobalError, vbExclamation, "The string of the variable w causes an error. (see documentation)")
  627.         gotErr = True
  628.     ElseIf w_sbParserX.IsError = False Then
  629.         function_sbParserX.VarValue6 = w_sbParserX.Result
  630.     End If
  631.     'Get the base for the output
  632.     If ODECOut.Value = True Then
  633.         baseOut = 10
  634.     ElseIf OBINOut.Value = True Then
  635.         baseOut = 2
  636.     ElseIf OHEXOut.Value = True Then
  637.         baseOut = 16
  638.     ElseIf OOCTOut.Value = True Then
  639.         baseOut = 8
  640.     End If
  641.     If Tfunction.Text = "" Then
  642.         mbretVal = MsgBox("There is no function to compute.", vbExclamation, "Error")
  643.         gotErr = True
  644.     ElseIf Tfunction.Text <> "" Then
  645.         'Compute the result
  646.         function_sbParserX.Function = Tfunction.Text
  647.     End If
  648.     FVBDemo.MousePointer = vbArrow
  649.     If gotErr = False Then
  650.         If function_sbParserX.IsError = False Then
  651.             'Convert the double to a string with the specified output number system
  652.             retVal = function_sbParserX.dConvertToBase(strBuffer, function_sbParserX.Result, 15, baseOut)
  653.             Tresult.Text = strBuffer
  654.         ElseIf function_sbParserX.IsError = True Then
  655.             'An error has occurred (see documentation)
  656.             Tresult.Text = "no result..."
  657.             mbretVal = MsgBox(function_sbParserX.GlobalError, vbExclamation, "Errornumber in Function (see documentation)")
  658.         End If
  659.     ElseIf gotErr = True Then
  660.         Tresult.Text = "no result..."
  661.     End If
  662.     If gotErr = True Then
  663.         Tresult.Text = "no result..."
  664.     End If
  665. End Sub
  666. Private Sub Form_Load()
  667.     function_sbParserX.VarDesc1 = "x"
  668.     function_sbParserX.VarDesc2 = "y"
  669.     function_sbParserX.VarDesc3 = "z"
  670.     function_sbParserX.VarDesc4 = "u"
  671.     function_sbParserX.VarDesc5 = "v"
  672.     function_sbParserX.VarDesc6 = "w"
  673. End Sub
  674. Private Sub RBBaseIn_Click()
  675.     'Set the base for the input (function and variables)
  676.     Dim baseIn As Integer
  677.     If ODEC.Value = True Then
  678.         baseIn = 10
  679.     ElseIf OBIN.Value = True Then
  680.         baseIn = 2
  681.     ElseIf OHEX.Value = True Then
  682.         baseIn = 16
  683.     ElseIf OOCT.Value = True Then
  684.         baseIn = 8
  685.     End If
  686.     Tresult.Text = "no result..."
  687.     function_sbParserX.Base = baseIn
  688.     x_sbParserX.Base = baseIn
  689.     y_sbParserX.Base = baseIn
  690.     z_sbParserX.Base = baseIn
  691.     u_sbParserX.Base = baseIn
  692.     v_sbParserX.Base = baseIn
  693.     w_sbParserX.Base = baseIn
  694. End Sub
  695. Private Sub RBAngUnit_Click()
  696.     'Set the angular unit
  697.     Dim angUnit As Integer
  698.     If ODEG.Value = True Then
  699.         angUnit = 1
  700.     ElseIf ORAD.Value = True Then
  701.         angUnit = 2
  702.     ElseIf OGRA.Value = True Then
  703.         angUnit = 3
  704.     End If
  705.     Tresult.Text = "no result..."
  706.     function_sbParserX.AngularUnit = angUnit
  707.     x_sbParserX.AngularUnit = angUnit
  708.     y_sbParserX.AngularUnit = angUnit
  709.     z_sbParserX.AngularUnit = angUnit
  710.     u_sbParserX.AngularUnit = angUnit
  711.     v_sbParserX.AngularUnit = angUnit
  712.     w_sbParserX.AngularUnit = angUnit
  713. End Sub
  714. Private Sub ODEC_Click()
  715.     RBBaseIn_Click
  716. End Sub
  717. Private Sub OBIN_Click()
  718.     RBBaseIn_Click
  719. End Sub
  720. Private Sub OHEX_Click()
  721.     RBBaseIn_Click
  722. End Sub
  723. Private Sub OOCT_Click()
  724.     RBBaseIn_Click
  725. End Sub
  726. Private Sub ODEG_Click()
  727.     RBAngUnit_Click
  728. End Sub
  729. Private Sub ORAD_Click()
  730.     RBAngUnit_Click
  731. End Sub
  732. Private Sub OGRA_Click()
  733.     RBAngUnit_Click
  734. End Sub
  735. Private Sub TxVar_Change()
  736.     x_sbParserX.Function = TxVar.Text
  737. End Sub
  738. Private Sub TyVar_Change()
  739.     y_sbParserX.Function = TyVar.Text
  740. End Sub
  741. Private Sub TzVar_Change()
  742.     z_sbParserX.Function = TzVar.Text
  743. End Sub
  744. Private Sub TuVar_Change()
  745.     u_sbParserX.Function = TuVar.Text
  746. End Sub
  747. Private Sub TvVar_Change()
  748.     v_sbParserX.Function = TvVar.Text
  749. End Sub
  750. Private Sub TwVar_Change()
  751.     w_sbParserX.Function = TwVar.Text
  752. End Sub
  753.